home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example11.AMOS / example11.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-03-06  |  1.4 KB  |  69 lines
  1. '================= 
  2. Rem example11.Amos 
  3. '================= 
  4.  
  5. '**      To break out of this program hold down CTRL and press C  ** 
  6.  
  7.  
  8. Rem A little slideshow to demonstrate UNPACK 
  9.  
  10.  
  11. Rem Hide mouse pointer, Set tracker mod to loop continously,play the music.
  12. Rem the music is already loaded into bank 5 and is contained in this program   
  13. Rem so there is no need to load it.
  14. '--------------------------------------------------------------------------  
  15. Hide : Track Loop On : Track Play 5
  16.  
  17.  
  18. Rem set a label (or marker) called BEGIN so GOTO knows where to jump to
  19. '----------------------------------------------------------------------- 
  20. BEGIN:
  21.  
  22.  
  23. Rem UNPACK the picture stored in bank 12 to screen 0 
  24. '----------------------------------------------------
  25. Unpack 12 To 0
  26.  
  27.  
  28. Rem wait 8 seconds 
  29. '----------------- 
  30. Wait 400
  31.  
  32.  
  33. Rem fade out the screen to black 
  34. '------------------------------- 
  35. Fade 5
  36.  
  37.  
  38. Rem wait fade*15 
  39. '--------------- 
  40. Wait 25
  41.  
  42.  
  43. Rem unpack bank 11 to screen 0 
  44. '----------------------------- 
  45. Unpack 11 To 0
  46.  
  47.  
  48. Rem the same again please
  49. '------------------------
  50. Wait 400
  51. Fade 1
  52. Wait 15
  53.  
  54.  
  55. Rem unpack bank 10 to screen 0 
  56. '----------------------------- 
  57. Unpack 10 To 0
  58.  
  59.  
  60. Rem ---------- 
  61. Wait 400
  62. Fade 10
  63. Wait 150
  64.  
  65.  
  66. Rem there are no more pictures so GOTO the label marked BEGIN
  67. Rem which will restart the display again, this program will go onfor ever. 
  68. '------------------------------------------------------------------------
  69. Goto BEGIN